4.3 Instant Input Assembler (ITA) 


Programming microprocessors is a long and involved process- 
edit, assemble, load, and debug. During the debug process it 
is often necessary to patch the program rather than 
reassemble it. Patching is often avoided, however, because 
it is time consuming and error prone =—- nobody likes the idea 
of programming in hexadecimal! The Instant Input Assembler 
(trade mark, Technico Inc.) was designed to circumvent this 
problem. The IIA provides the capability to enter patches or 
short programs using the standard 9900 CPU mnemonics and 
operands. The best part is that it is available in EPROM so 
its always ready for use. The Instant Input Assembler is 
only 512 words long, but it is packed with features to 
simplify programming. 


4.3.1 Operation 


To start execution of the assembler, branch to location #F800 
using the monitors GO command or the disk handler command 
ITA. The Instant Input Assembler will respond as follows: 


0100: 


The address printed is the address where your program will be 
entered in memory. The assembler always prompts by printing 
an address on a new line, and then it waits for you to type a 
source input statement. When the source statement is 
completed and you type a carriage return, the assembler will 
display the converted code that it has entered in memory; 
advance the program address accordingly; and again prompt by 
printing the address- A sample entry sequence is shown later 
in this section. 


4.3.2 Entry Format 


When the assembler is awaiting input, you may enter any one 
of the following types of commands: 


(1) string constant - Type a "$" followed by characters that 
you want entered in memory. The assembler will convert each 
character from ASCII to hexadecimal and store the constants 
in memory- The string may be any length and is terminated by 
a carriage return. If the string is an odd number of bytes 
long, the assembler will add one more byte filled with a 
space to return to an even address. 


(2) numeric constant - A numeric constant is indicated by 
typing a "+" or "=" followed by the desired constante All 
constants are decimal unless otherwise indicated. To 


indicate a hexadecimal constant, preceed the number by a ">" 
(e-g-+>1234). To indicate a binary constant, preceed the 


number by a "%" (e.g.+%10100011100) 


(3) address redefinition - You can change the program 
counter location by typing a "/" followed by the new address 
(in hexadecimal). This feature is ideal for patching because 


it allows you to move about in memory without restarting the 
assembler. 


(4) 9900 CPU assembly mnemonic - All of the 9900 CPU 
mnemonics are recognized by the instant input assembler. 


The general format of an instruction entry is: 
<instruction-mnemonic> space <operand-field> space 


The complete set of allowable instruction mnemonics is 
described in the Instruction Set section of the system 
manual. There are several different operand fields that may 
be used: 


a) register - for example: RO, R13, 12, 3 
b) register indirect - for example: *RI15, *6 


c) register indirect with auto increment - for example: 
®R144+, *2+ 


d) indexed - for example: @12(R1), @123, @Z101, @>12(3) 
e) constant - for example: 12, 4101, >123A 

f) string - for example: ’A’, “BD’ 

g) relative displacement (for jumps) - The displacement 
is in words and is checked for allowable range. There 
are three possible formats: +N, -N, or N. The +/- 
format is a jump forward or backward N words from the 


next sequential word. The N format is a jump to address 
N, the assembler will calculate the offset in this case. 


Refer to the Instruction Set section of the system maual for 
what operands are allowed with any given instruction. Sample 
instructions and mnemonics are: 


?7GF800 


0100: C941 MOV R1,@Z101(R5) 


0102: 0005 
0104: C820 MOV @2,@>123 
0106: 0002 


OLO8s 01.23 

010A: 1002 JIMP +2 

010C: 1OF9 JMP >100 
0110: CC91l MOV *R1,*R2+ 
01123 


The easiest way to learn to use the instant input assembler 
is to try a sample program. The following program will type 
the message "HELLO" on a new line and then return to the 
monitor. It uses the monitor XOP’s for input/output. Try 
entering this program and then returning to the monitor (by 
typing break) and executing it (G 100). 


?GF800 

0100: O2Z01 Li R1,>120 3; R1 IS ADDR. COUNTER 
0102: 0120 

0104: 2c91 OUT *R1 3; PRINT ONE CHARACTER 
0106: O581 INC Rl 3; ADVANCE TO NEXT ONE 
0108: DOLL MOVB *R1,RO 3; TEST FOR END OF MESS. 
O10A: 16FC JNE >104 3; IF NOT END, CONT. 
010G: 2C00 xXoOP 0,0 ; IF END, BACK TO MONITOR 
OT LO /120 3; CHANGE PC 

0120: ODOA +>0D0A ; RETURN/FEED 

0122: 4845 SHELLO 

0124: 4c4¢C 

0126: 4F20 

0128: 0000 +0 

O12A: 

26100 

HELLO 

? 

4.3.3 Line Editing 


If you make a typing mistake, you can backspace and correct 
it by typing a backspace (CTRL-H). The assembler will line 
feed and backup (assumming your terminal can backspace) under 
the character to be changed. If your mistake is a big one, 
type ESC (escape) and the assembler will discard this line 
and allow you to start over again. 


4.3.4 Error Messages 


The instant input assembler is only 512 words long, so it 
cannot detect all user errors, however it does detect many of 
them. Whenever you type something that the assembler does 
not like or understand, it will type an error message on the 


next line and reprompt with the old address. The possible 
error messages are: 


*S =- syntax error. The input contains a syntax error. 


*D - displacement error. The target address of a jump 
is too far away and exceeds the allowable range. 


*R - range error. The input is out of range. It should 
have been O to 15. 


When the assembler detects an error and prints the message, 
it keeps the program counter set to the location of the 
error. That is, the program counter is not advanced until a 
statement is accepted and stored in memory. 


4.3.5 Program Design 


The heart of the assembler is the unique tree structured 
Oop-code table. Since some assemblers require more space for 
the op-code table than was available for the whole assembler 
that table had to be optimized- A review of the listing will 
illustrate how this table is constructed. To further reduce 
Space, the monitors XOP’s are used for input/output. A full 
listing of the IIA is provided on the following pages. 


We have done our very best to check and verify this program. 
However, you may find some latent error or have a suggestion 
for further improving its usefulness. If so, drop us a line 
describing the change. We are always interested in hearing 
from the users. 
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0000 


0000 
0000 


0004 
0006 
0008 
000c 


00B0 
OOB2 
0100 


0000 
0020 
0040 
0060 
0080 
00A0 
00c0 
O0EO 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 


0460 020A 


00BO 
FO10 
0460 F008 
0460 FOOC 


10/78 


TITL “INSTANT INPUT ASSEMBLER (TM) VER 3 


IDTIIA IDT 
* 


THE INSTANT INPUT ASSEMBLER(TRADE MARK- 
TECHNICO, INC.) IS DESIGNED TO RUN WITH THE 
MIGHTY MONITOR(TRADE MARK-TECHNICO, INC.) 


ENTIRE PROGRAM COPYRIGHT 1978, TECHNICO, INC. 
NO PORTION MAY BE REPRODUCED WITHOUT EXPRESS 
WRITTEN CONSENT 


INTERFACE TO MONITOR ROUTINES 


ee eee ee He HE 


REF 
DREG 
B 


+e ee F 


DISK DATA 
DATA 
TTIN B 
TTOUT B 

ee 

* RAM AREA 
* 


IDTMM, TYPE, TYPEWD, DMEMN 


@IIABGN 


>BO 
>FO10 
@>F008 
@>FOOC 


GOTO START 


THE FOLLOWING TRANSFER VECTOR IS 
INCLUDED SO THAT SOFTWARE WRITTEN FOR 
EARLIER VERSIONS OF THE SYSTEM WILL WORK 


DTH (WP,PC) 


TAPE IN 
TAPE OUT 


PC EQU) >BO 3; PROGRAM COUNTER 
PTR EQU) >B2 5; TEXT POINTER 
DFPC EQU. >100 3; DEFAULT P.C. 
* 

MNEMONIC TABLE. THIS TABLE 


IS CONSTRUCTED AS A BINARY TREE. 
EACH ENTRY HAS THE CHARACTER POSITION AND 


CTER. 


IF THE SIGN BIT IS SET 


THE CHARACTER IS A LEGAL END OF OP-CODE. 
THE ASCII CHARACTER IS IN THE RIGHTMOST 


* 
* 
* 
* THE CHARA 
* 
* 
* 


FIVE BITS. 

* 
Pl EQU O ; CHAR ONE 
P2 EQU 32 3; CHAR TWO 
P3 EQU 64 3; CHAR THREE 
P4 EQU 96 3; CHAR FOUR 
P1E EQU >80+P1 ; CHAR ONE & END 
P2E EQU >80+P2 ; CHAR TWO & END 
P3E EQU  >80+P3 3; CHAR THREE & END 
P4E EQU >80+P4 ; CHAR FOUR & END 
OPS BYTE P1E+’A’-’@’ 3 A, S5D 

BYTE P2E+’B’-’@’ s AB S,D 

BYTE P3E+’S’-°@’ ; ABS S 

BYTE P2E+’°1’-’@’ ; ALI W,10P 

BYTE P2+°N’-%@’% $ 

BYTE P3+°’D’-‘’ @’% 5 

BYTE P4E+‘1’-’@’ ; ANDI W,IOP 

BYTE P1E+’B’-‘’@’ ; BS 

BYTE P2E+°L’-‘’@’ ; BL 

BYTE P3+°W’-’@’ ; 


43-5 
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OO1LA 
0018 
001Cc 
OO1D 
OO1E 
OO1F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 
002B 
002C 
002D 
O02E 
002F 
0030 
0031 
0032 
0032 
0033 
0034 
== 0035 
0036 
0037 
0038 
0039 
003A 
003B 
003C 
003D 
003E 
003F 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
004A 
OO4B 
004C 
004D 
—  OO04E 
OO4F 
0050 
0051 
0052 


FEED 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
EQU 

BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
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(IM) VER 3 


P4E+°P*-“@Q’ 
P1lE+°C’-*%@’ 
P2E+°B’-’% @” 
P2E+°I’=’@’ 
P2+°L‘’-"@’ 
P3E+°R’-’@’ 
P2+°0’-’ @’ 
P3E+°C’~-°@’ 
P2+°Z’-*@’% 
P3E+°C’-* @’ 
P1+°D’-’@’ 
P2+°E’-’@’ 
P3E+°C’-’@’ 
P4E+°T’-“%@’ 
P2+°I’°-’%@’% 
P3E+°V’-’% @’% 
P1+’1I’-%@’ 
P2+’°D’-“%@’ 
P3+°L’-’ @’% 
P4E+°E’-*% @’ 
P2E+°N’-%@’ 
P3E+°C’-’@’ 
P4E+°T’-%@’ 
P3E+’°V‘'-% @’ 
$ 
P1+’J°-’@’ 
P2+°E*’—*%@’ 
P3E+°Q’-°@’ 
P2+°G’-’@’ 
P3E+°T’-“%Q’ 
P2E+°H’-" @’ 
P3E+’°E’-’@’ 
P2E+°L’—-*% @’% 
P3E+°E’-%@’ 
P3E+°T’-’@’ 
P2+°M’-’@’ 
P3E+°P’-’%@’ 
P2+°N’-*% @’ 
P3E+°C’-%@’ 
P3E+’°E’-’@’ 
P3E+°0’-%@’ 
P2+°0’-’@’ 
P3E+°C’-*@’% 
P3E+°P’-’@’% 
P1+’°L’ -*% @’ 
P2+°D’-’%@’ 
P3+°C’-’@’ 
P4E+°R’-% 


P1l+’M’-’@% 
P2+°0O’-’@’ 
P3E+°V’—"@’ 
P4E+°B’~" @’ 
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we 


BLWP S 
c s,D 
CB S,D 
CI W,IOP 


we we we we 


CLR S$ 


we we we 


coc s,W 


we 


czZC S,W 


DEC S 
DECT S 


We we we we we 


we we 


DIV S,W 


we we we ve 


IDLE 

IN S 

INC §$S 
INCT §S 
INV S 
LINE FEED 


we we we 


we 


JEQ DIS 


we we We we we we we 


JGT DIS 
JH DIS 
JHE DIS 
JL DIS 
JLE DIS 
JLT DIS 


we Ve we we we ve we 


JMP DIS 


we 


JNC 
JNE 
JNO 


DIS 
DIS 
DIS 


we 


we we ve we 


JOC DIS 
JOP DIS 


we we we we we 


LDCR §,¢ 
LI W,10P 


we 


LIMI IOP 


we we 


LWPI IOP 


MOV S,D 
MOVB S,D 


we we we we we ve 
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0053 
0054 
0055 
0056 
0057 
0058 
0059 
OO5A 
0058 
005C 
005D 
OO5E 
OO5F 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
OO6A 
0068 
006C 
006D 
006E 
OO06F 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
OO7A 
007B 
007C 
007D 
OO7E 
OO7F 
0080 
0081 
0082 
0083 
0084 
0085 
0086 


te ee FF 


BRANCH TABLE FOR 


0 
1 
2 
3 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE. 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


- N/A 
-~ S OR D 
- W OR C 
= OB 
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(TM) VER 3 


P2+°P’~—* 
P3E+°Y’- 
P1l+’N‘-’ 
P2+°E’-*% 
P3E+‘°G’- 
P2+°0’-* 
P3E+°P’-= 
P1+’0°-* 
P2+’°R’-* 
P3E+‘°I’~-%@’ 
P2+°U’-“@’ 
P3E+°T’-*°@’ 
P1+‘°R‘’-’@’ 
P24°T ° =" OF 
P3+°W’+’@’ 
P4E+’P’~’@’ 
PIE+’S’-’@*% 
P2E+°B’-*%@’ 
P3E+°0’=" @’ 
P3E+°Z’°-"@’ 
P2+"ER* =" a? 
P3+°T’-’@’% 
P4E+°0°-’@’ 
P2+°L’-"@’ 
P3E+°A’="@" 
P2+°0" =* @” 
P3E+°C’-’ @’ 
P4E+°B’-’@’ 
P2+°R°-’ @’ 
P3E+°A’-*°@’ 
P3E+‘°C’-’@’ 
P3E+°L’-"% @% 
P2+°T’-*@’ 
P3+°C’-’@’ 
P4E+’R“-" @” 
P3+°S*-*@" 
P4E+°T’-"@’ 
P3+°W’-°@’ 
P4E+°P’-%@’% 
P2+°W’-’@’ 
P3+°P%-’@’% 
P4E+’°B’-‘@’ 
P2+°Z°—"@’ 
P3E+°C’-’ @’ 


: 
@ 
@ 
@ 
ie a 
@’ 
@? 
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we we we we 


we we we we we we we we we we we 


we we We we we we we we we we 


we we we we we we we He Ve we we ve 


we We we we Ve we we wo 


we we ve we we we we 


OPERANDS 


MPY S,W 


NEG S$ 


NOP 


ORI W,10P 


OUT S&S 


RIWP 
S $0 

SB S,D 
SBO BIT 
SBZ BIT 
SETO § 

SLA W,N 


soc s,D 
SOCB S,D 


SRA W,N 
SRC W,N 
SRL W,N 
STCR §,€ 


STST W 


STWP W 


SWPB 5S 


8ze s.D 
SZCB S,D 


TB BIT 
X S$ 


XO P 
XOR 
END 


S,W 
S,W 


OF TABLE 
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0088 
008C 
0090 
0094 


0009 
0005 
OO0A 
000A 
0014 
0008 
0000 
0613 
QOOA 
0006 
0003 
0010 
0096 
0098 
OO9A 
009C 
OO9E 
O0AO 
00A 2 
O0A4 
O0A6 
00A8 
OOAA 
OOAC 
OOAE 
0OBO 
00B2 
OOB4 
00B6 
00B8 
OOBA 
OOBC 
OOBE 
00CcO0 
00C 2 
00C4 
00C 6 
00C8 
OOCA 
— _ 00CC 
OOCE 
00D0 
00D2 
O0D4 


0000 
03A6 
038A 
O3F8 


O31A 
0396 
O3AE 


* 4 —- N (SHIFT COUNT) 

* 5 =- DIS 

* 6 - BIT 

* 

OP DATA 0,O0PA,OPF,OPE 


DATA OPD,OPG, OPH 


* 
* BASIC OP-CODE TABLE 

* EACH ENTRY HAS THE OP CODE, 
* OPERAND ONE AND OPERAND TWO 
* DESCRIPTION. 

* 


FM1 EQU >9 
FM2 EQU >5 
FM3 EQU >A 
FM4 EQU >A 
FM5 EQU) >14 
FM6 EQU >8 
FM7 EQU O 
FM8 EQU) >13 
FM9 EQU >A 
FMA EQU >6 
FMB EQU >3 
FMC EQU >10 


CODE DATA >AO0OO0O0+FM1 
DATA >BOOO+FMIL 
DATA >0740+FM6 
DATA >0220+FM8 
DATA >0240+FM8 
DATA >0440+FM6 
DATA >0680+FM6 
DATA >0400+FM6 
DATA >8000+FM1 
DATA >9000+FM1 
DATA >0280+FM8 
DATA >04C0+FM6 
DATA >2000+FM3 
DATA >2400+FM3 
DATA >0600+FM6 
DATA >0640+FM6 
DATA >3C00+FM9 
DATA >0340+FM7 
DATA >2C40+FM6 
DATA >0580+FM6 
DATA >05C0+FM6 
DATA >0540+FM6 
DATA >1300+FM2 
DATA >1500+FM2 
DATA >1BO0+FM2 
DATA >1400+FM2 
DATA >1A00+FM2 
DATA >1200+FM2 
DATA >1100+FM2 
DATA >1000+FM2 
DATA >1700+FM2 
DATA >1600+FM2 


43-8 


we we 


we we 


we we we Ve we we Ve we eH we VO we we 


we we Ve we we we we se we we we we ws we 


we we we ve ve we we we we 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


ADRDPrPWOANDUFWN HE 
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00D6 
00D8 
OODA 
OODC 
OODE 
OOEO 
OOE 2 
OOE4 
OOF 6 
O0E8 
OOEA 
OOEC 
OOEE 
O0O0FO 
0 OF 2 
OOF4 
OOF6 
OOF 8 
OOFA 
OOFC 
OOFE 
0100 
0102 
0104 
0106 
0108 
010A 
010C 
O10E 
0110 
OT 12 
0114 
0116 
0118 
O11A 
O11Cc 


O11E 
0120 
0124 
0126 
012A 
012C 
012E 
0130 
0134 
0136 
0138 
013¢C 
013E 
0142 
0144 
0148 
014¢ 
O14E 
0150 


1905 
1805 
1c05 
300A 
0213 
0303 
02E3 
C009 
DOO9 
380A 
0508 
1000 
0273 
2088 
0380 
6009 
7009 
1D06 
1E06 
0708 
OA14 
E009 
FOO9 
0814 
OB14 
0914 
340A 
02D0 
0280 
06C8 
4009 
5009 
1F06 
0488 
2COA 
280A 


C04B 
0208 
1002 
0208 
069F 
1003 
CO4B 
0208 
04C7 
C184 
0226 
110A 
0286 
1105 
0226 
0286 
1102 
8206 
1103 


0010 


0002 


OOO0A 


FFDO 


OOOA 


FFF9 
OOO0A 


DEC20 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BINARY, 


MOV 
LI 
JMP 
LI 
BL 
JMP 


(TM) VER 3 - 10/78 


>1900+FM 2 
>1800+FM2 
>1COO+FM2 
>3000+FM4 
>0200+FM8 
>0300+FMB 
>O2EO+FMB 
>C 000+FM1 
>DOO0+FM1 
>3800+FM9 
>0500+FM6 
>1000+FM7 
>0260+FM8 
>2C 80+FM6 
>0380+FM7 
>6000+FM1 
>7000+FM 1 
>1DO0O+FMA 
>LEOO+FMA 
>0700+FM6 
>OAQO+FM5 
>EOOO+FM1 
>FOOO+FM1 
>0800+FM5 
>OBOO+FM5 
>0900+FM5 
>3400+FM4 
>02C0+FMC 
>02A04+FMC 
>06C0+FM6 
>4000+FM1 
>5000+FM1 
>1LFOO+FMA 
>0480+FM6 
>2C00+FM9 
>2800+FM3 


we we we we ue we we we we we we we ee we we we we we Oe we we we we we 


we we we we we we we we we ve 


RELL a 
R8,16 $ 
BIN1O 


w 

co 
. 

N 
we 


we we we we we we 


Oo 
fea 
QO 
Ww 
oO 
we 


OR DECIMAL INPUT 


SAVE RETURN 
PRESET BASE 


PRESET BASE 


SAVE RETURN 
PRESET BASE 
PRESET VALUE 

PUT CHAR IN R6 
REMOVE ASCII BIA 
NOT VALID 


O.K. 


NOT VALID 


IF NOT LT BASE — NOT 


GOOD 


PAGE-6 INSTANT ©. PUT ASSEMBLER (TM) VER 3 - 10/78 


0152 c2Ccl DEC30 MOV R1,R11 ; RESTORE EXIT 
0154 C047 MOV R7,R1 3; RI=ANS. 

0156 0453 B *R11 ¢ ESET 

0158 C006 DEC40 MOV R6,R0 

015A C187 MOV R7,R6 

015C 3988 MPY R8,R6 

015E A1CO A RO, R7 

0160 069F BL *R15 

0162 10E9 JMP DEC10 


* 


* GET REGISTER NAME 
* 


0164 CO4B GETR MOV R11,R1 3; SAVE RET 

0166 069F BL *R15 

0168 C2Cl MOV R1,R11 ; TEMP. RESET OF R11 
016A C30B GETRA MOV R11,R12 ; SAVE RET 

016C 0284 0052 GETR1O CI R4,’R’ 3; IF RX, SKIP THE R 
0170 1601 JNE GETR20 

0172 069F BL *R15 

0174 06A0 012E GETR20 BL  &@DEC ; GET X 

0178 0281 OOOF CI R1,15 ; TEST RANGE 

017C 1820 JH  GETR30 

O17E 045¢ B *R12 ; EXIT 


* 


* GET ADDRESS 
* 


0180 CO4B GETL MOV R1I1,RI1 ; SAVE RET 

0182 069F Bi 20. 815 

0184 1001 JMP GETLI10 

0186 CO4B GETLA MOV R11,R1 ; SAVE RETURN 

0188 0284 0025 GETL10 CI. R4,°%’ ; CHECK FOR BINARY 
018¢ 13cc JEQ BIN 

O018E 0284 0027 cx «98S, SF 3 CHECK FOR STRING (7) 
0192 1304 JEQ GETL20 

0194 0284 0035 Si Ry, *%>* ; CHECK FOR HEX 
0198 16CB JNE DEC1 3; MUST BE DEFAULT 
O19A 1002 JMP HEX+2 3; MUST BE HEX 

019C 04C7 GETL20 CLE 27 ; PRESET STRING 
019E 069F GETL30 BL *R15 ; GET A CHAR 

O1A0 0284 0027 él B84, >27 ; IF “, DONE 

01A4 1303 JEQ GETL40 

01A6 0A87 SLA R7,8 

O1A8 E1C4 SOC R4,R7 

O1AA 10F9 JMP GETL30 

OLAC 069F GETL40 BL *R15 3; GET TERM. 

O1AE LOD1 JMP DEC30 3; EXIT 


* 


* TAB OVER SIX PLACES 
* 


01B0 0200 0006 TAB LT R0,6 : RO=COUNTER 

01B4 2CA0 0349 TAB1O OUT @SPACE = Been chanied to output 709 for ANN- ARERR Terwar 
5 

01B8 0600 DEC RO 

O01BA 16FC INE TABI10 

O1BC 0458 B *R11 ; EXIT 

O1BE 0204 522A GETR30 LI R4,‘’R*’ : ISSUE RANGE ERROR 

01c2 1071 JMP PT210 ; PLACED HERE FOR JMP NOT B 


* 
* GET ONE CHARACTER FROM USER BUFFER 
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* CHARACTER RETURNED RIGHT JUSTIFIED IN R4 
* 


01C4 C120 00B2 INPT MOV @PTR,R4 GET TEXT POINTER 


we 


01C8 O5A0 00B2 INC @PTR ; SET FOR NEXT CHAR 
Olcc D114 MOVB *R4,R4 3; GET CHARACTER 
O1CE 0984 SRL R4,8 ; RIGHT JUSTIFY 
01D0 04538 B *R11 ; EXIT 

* 

* ROUTINE: BUFFIN 

* BUFFER IN ONE LINE 

* (ESC) WILL CANCEL THE LINE 

* (CTRL-H) WILL BACKSPACE 

* (RETURN) WILL END 

* 
01D2 0201 00B4 BUFFIN LI R1,>B4 ; PRESET POINTER 
01D6 C801 00B2 MOV R1,@PTR 
O1DA 020C OAOA BUFF5 LI R12,>0A0A ; PRESET FOR B.S. 
O1DE 2C44 BUFF10 IN R4 3; GET CHARACTER 
O1EO DC44 MOVB R4,*R1+ ; SAVE IT 
O1E2 0984 SRL R4,8 
O1E4 0284 0018 CI R4, 315 ; ESC? 
01E8 1318 JEQ PT120 
O1EA 0284 0008 CI R4,>08 ; BACKSPACE? 
O1EE 1304 JEQ BUFF20 
O1FO 0284 OO00D CI R4,>0D ; CR? 
O1F4 16F2 JNE BUFF5 
O1F6 0453 B *R11 ; EXIT 
O1F8 0641 BUFF20 DECT Rl ; BACK UP ONE CHAR 
O1FA 2C8C OUT R12 ; LINE FEED, IF REQD. 
OlFC 04CC CLR R12 ; CANCEL REST 
O1FE 0281 OO0B4 CI R1,>B4 ; NOT PAST FIRST ONE 
0202 14ED JHE BUFF10 
0204 2CA0 0349 OUT @SPACE 
0208 10E4 IMP BUFFIN 

* 

* CONTROL LOOP - REQUEST ADDRESS, 

* PRINT TRANSLATED OPCODES 

* 
020A 02E0 0080 IIABGN LWPI >80 ; RESET WORKSPACE 
020E 0201 0100 bI RL, pFPC SET DEFAULT PC 


3 
0212 O20F 01C4 LI R15, 1INPT 3; SET R15 FOR INPT CALL 
0216 C801 O00BO PT110 MOV R1,@PC 3; SAVE PC 

0214 COAO OOBO PT120 MOV @PC,R2 3; R2=PC 

O21E 04¢C3 CLR R3 3; R3=WORD COUNT 

0220 C042 PTL30 MOV R2,R1 ; DISPLAY CURRENT ADDRESS 
0222 O06A0 0000 BL @DMEMN 3; ADDRESS ON NEW LINE 
0226 2CA0 0349 OUT @SPACE 3; SPACE 

022A CO0C3 PT140 MOV R3,R3 3; LF WORD COUNT NONZERO 
022cC 1307 JEQ PT150 ; DISPLAY INST. WORDS 
O22E C172 MOV ¥*R24+,R5 3; DISPLAY 

0230 O06A0 0000 BL @TYPEWD 

0234 C802 O0BO MOV R2,@PC 3; UPDATE PC 

0238 0643 DECT R3 5; REDUCE WORD COUNT 

023A 1OF2 JMP PT130 3; CONT. TILL ALL DONE 
023¢C O6A0 O01B0 PT150 BL @TAB 3; TAB OVER 6 PLACES 

0240 O6A0 01D2 BL @BUFFIN ; GET ONE LINE 


* 
* ACCEPT THE OP-CODE MNEMONIC 


he 3-1 1 
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0244 
0248 
024A 
024C 
024E 
0250 
0252 
0256 
0258 
025C 
O25E 
0262 
0264 
0268 
026A 
026E 
0270 
0274 
0276 
027A 
027C 
O27E 
0280 
0282 
0284 
0286 
0288 
028A 
028¢ 
028E 
0290 
0292 
0294 
0296 
0298 
029A 
029C 
0295 
02A0 
O2A2 
02A6 
O2AA 
O2AE 


0280. 
0282 
02B4 
02B7 

— 0258 
O2BA 
02BC 
O2BE 
02c0 


020A 
04¢5 
04C6 
069F 
C145 
160F 
0284 
132C 
0284 
L339 
0284 
1339 
0284 
1603 
06A0 
10D 3 
0284 
1114 
0284 
1513 
OAB4 
058A 
DOLA 
130F 
1501 
05C6 
0A10 
09EO 
8005 
11¥F7 
1508 
DOI1A 
0A30 
9100 
16F2 
0585 
10D7 
DO1A 
1120 
0204 
2CA0 
06A0 
10B5 


C282 
069F 
0284 


1304 
OA84 
DE 84 
0583 
10F8 


OOOF 


0024 


002B 


002D 


002F 


O11E 


0041 


OO5A 


532A 
0032 
00900 


000D 


PT 160 


PT170 


PT 200 


PAT9O 
PTI2Z10 


+ ee 


* 


PT 220 
PT 225 


CRET 


Er R10,0PS-1 
CLR R5 

CLR R6 

BL *RI5 
MOV R5,R5 
JNE PT170 
CL R4,.7 $° 
JEQ PT220 
Cr R4, ‘+’ 
JEQ PT250 
GI R4, *~* 
JEQ PT260 
ee oa 
JNE PT170 
BL @HEX 
JMP PT110 
cL R4,*A* 
JLT PtT200 

[o RA, *2* 
JGT PAT9O 
SLA R4,11 
INC R10 
MOVB *R10,R0 
JEQ PATIO 
JGT PT190 
INCT R6 

SILA. KO,1 
SRL RO,14 
Cc R5,R0 
JLT PT180 
JGT PATIO 
MOVB *R10,R0 
SiA 80,3 

CB RO,R4 
JNE PT180 
INC R5 

JMP PT160 
MOVB *R10,R0 
JLT PT280 
Lt R4,°S*’ 
OUT @FEED 
BL @TYPE 
IMP pPT120 


HANDLE STRING ENTRIES. 
UNTIL A CR. 
EXIT 


MOV R2,R10 
BL R15 

CI R4,>0D 
EQU $-1 

JEQ PT230 
SLA R4,8 
MOVB R4,*R10+ 
INC R3 

IMP PT225 
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Wa we we we we we ve 


we we ve we we we we 


we we 


we we we we we we we we we we Ue 


wa we 


. 
’ 


. 
3 


. 
> 


R1O0=LOOKUP INDEX 

R5=CHAR- POS. 

R6=OPCODE COUNT 

GET ONE CHAR 

IF POS. ONE THEN 
CHECK FOR +/-/$ 

CHECK FOR $(STRING) 


CHECK FOR +(CONST. ) 


CHECK FOR -(CONST.) 


CHECK FOR ADDR RESET 
GET NEW ADDRESS 


BE SURE WE HAVE A CHAR. 


PUT CHAR IN LEFT 5 BITS 

ADVANCE LOOKUP INDEX 

GET CHAR. LEVEL 

JUMP IF END OF TABLE 

IF VALID END, UPDATE 
OPCODE COUNT 

PUT POS. IN RIGHT BITS 


COMPARE POS. 

LOWER POS. 

HIGHER - ERROR 

SAME - CHECK CHAR. 
CHAR IN LEFT 5 BITS 
COMPARE TO INPUT 

NO MATCH 

O.K. - UPDATE POS. 
GET REST OF OPCODE 
END - IS IT VALID? 
IF MINUS - O-K. 
ERROR -— SNATCH AWAY 
AVOID OVERPRINT 
CONTROL AND START OVER 
DON’T CHANGE PC 


COLLECT CHARACTERS 
THEN FORCE ADDRESS EVEN AND 


GET A CHAR. 
IF CR = EXIT 


SAVE THE CHAR. 
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02c2 c003 PT230 MOV R3,RO ; IF ODD-INST. SPACE 
02c4 0810 SRA RO,1 
0206 1724 INC PT300 
02C8 D6A0 0349 MOVB @SPACE,*R10 ; PAD WITH SPACE 
02cc 0583 INC R3 
02CE 1020 JMP PT300 ; GO PRINT RESULTS 
* 
* HANDLE CONSTANT ENTRIES. 
* PT250 IS PLUS AND PT260 IS MINUS 
* 
02D0 06A0 0180 PT250 BL @GETL 3; GETVALUE 
02D4 1003 IMP pT270 ; GO SAVE IT 
02D6 06A0 0180 PT260 BL @GETL ; GET VALUE 
02DA 0501 NEG Rl 3; -VALUE 
02DC C481 PT270 MOV R1,*R2 ; SAVE IT 
02DE 053 INCT R3 ; SET R3 
02E0 1017 JMP pPT300 ; GO PRINT 
* 
* THE OPCODE HAS BEEN LOCATED AND THE 
* INDEX IS IN R6. NOW COLLECT THE 
* OPERANDS. 
* 
02E2 C2A6 0094 PT280 MOV @CODE-2(R6),R10 ; RIO=INST&PARSING INST. 


02E6 COOA MOV R10,R0 ; PRESET THE INST. 
02E8 0240 FFEO ANDI RO,>FFEO 
02EC C480 MOV RO,*R2 
O2EE 05C3 INCT R3 ; COUNT=2 
02FO0 CO4A MOV R1O0,RI1 ; GET OP. ONE DESC. 
02F2 0921 SEL Ri? 
02F4 0241 0006 ANDI R1,>6 
02F8 C061 0088 MOV @OP(R1),R1 ; R1=OPERAND INDEX 
02FC 1301 JEQ PT290 ; SKIP IF NO FIRST ONE 
O2FE 0691 BL *R1 ; COLLECT FIRST ONE 
0300 024A 0007 PT290 ANDI R1O,7 ; COLLECT SECOND OP. 
0304 OA1A SLA R10,1 
0306 C1AA 0088 MOV @OP(R10),R6 
030A 1302 JEQ PT300 ; JUMP IF NONE 
030C O4CA CLR R1O ; SET FLAG 
030E 0696 BL *R6 

* 

* THE ENTIRE STATEMENT HAS BEEN 

* ACCEPTED - PRINT TRANSLATION 

* AND UPDATE P.C. 

*& 


0310 2CA0 02B7 PT300 OUT @CRET RETURN 


0314 06A0 0130 BL @TAB ; TAB OVER SIX 
0318 1088 JMP PpT140 ; GO DISPLAY OBJECT 
* 
* HANDLE S OR D 
* N 
* *N 
* aN+ 
@x(N) 
= * @x 
* 
031A C38B OPA MOV R11,R14 ; SAVE RETURN ADDRESS 
031C 069F BL *R15 ; GET CHAR 
O31E 0284 002A Ci Be, *** ; CHECK FOR *N OR *N+ 
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0322 
0324 
0328 
032A 
032E 
0330 
0332 
0334 
0336 
033A 
033E 
0340 
0344 
0346 
0349 
034A 
034C 
0350 
0352 
0356 
035A 
035E 
0360 
0362 
0364 
0366 
0368 
036A 
036C 
0370 
0374 
0378 
037A 
037¢C 
0380 
0382 
0384 
0388 


038A 
038C 
0390 
0392 
0394 


0396 
0398 
039¢ 
039E 
03A0 
03A2 
O3A4 
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1324 
0284 
162D 
06A0 
c183 
A182 
c581 
05¢C3 
0201 
0284 
1311 
0284 
130E 
0284 


130B 
0284 
16A8 
06A0 
0261 
0284 
16A1 
069F 
COOA 
1601 
OA61 
E481 
O45E 
06A0 
0200 
0284 
1603 
069F 
0200 
E040 
10EF 
06A0 
10EC 


C38B 
06A0 
OA41 
E481 
10EA 


C38B 
06A0 
C183 
A182 
C581 
05¢3 
10E2 


0040 


0180 


0164 
0010 
002B 


0030 


O16A 


0164 


0180 


JEQ OPB 
ci, Ri, @* 
JNE OPC 


BL @GETL 
MOV R3,R6 


A R2,R6 
MOV R1,*R6 
INCT R3 


SPACE EQU $-1l 


OPA10 MOV R10,RO 
INE OPAILS 


SLA R1,6 
OPAI5 SOC RI1,*R2 
OPA20 B FRIG 
OPB BL @GETR 


LI RO,>10 
CI R4,*+" 
JNE OPB10 
BL *RI15 
LI RO,>30 
OPB10 SOC RO,RI 
JMP OPA1O 
OPC BL @GETRA 
JMP OPA1O 


* HANDLE SHIFT COUNT 
* 


OPD MOV R11,R14 
BL @GETR 
SLA R1,4 


SOC R1,*R2 
JMP OPA20 
* 


* HANDLE IMMEDIATE OPERANDS 
* 
OPE MOV R11,R14 

BL @GETL 

MOV R3,R6 


A R2,R6 
MOV R1,*R6 
INCT R3 


JMP OPA20 
« 5 


* HANDLE W 
4.3-14 


we ve we we 


we we we ve ve we 


we we we we we 


we 


JUMP IF YES 


CHECK FOR @X OR @X(N) 


JUMP IF NOT 
ADD TO MEMORY 
SAVE X 


UPDATE COUNT 
ADDRESS MODE 2 


IF RETURN OR ’%,”% DONE 


IF SPACE DONE 


IF NOT ( — ERROR 


GET REG. 
SET MODE 
IF NOT ) 


4 


ERROR 


REPOS. IT 


INSERT IT 

EXIT 

GET N(FOR 4N) 

SET MODE = 1 

IF TERM. BY + 
CHANGE MODE 


SET MODE = 3 
R1=REG&MODE 


GET N(FOR N) 
MODE=0 - GO INSERT 


SAVE RETURN 
GET COUNT 
REPOSITION 
INSERT 

EXIT 


SAVE RETURN 
GET IOP 
ADD TO MEMORY 


ADJUST COUNT 
CONTINUE 
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03A6 C38B OPF MOV R11,R14 
03A8 O6A0 0164 BL @GETR 
03AC 10DA JMP OPAL1O 
* 
* HANDLE DISPLACEMENTS 
* + DIS 
# = HFS 
* ADDRESS (CALCULATE DIS PLACEMENT) 
ie 
O3AE C38B OPG MOV R11,R14 ; SAVE RETURN 
03B0 069F BL *R15 3; GET FIRST CHAR 
03B2 0284 0028 ci ‘Ra, *+* ; CHECK FOR +DIS 
03B6 1319 JEQ OPG30 
03B8 0284 002D Cl Bé.*e" ; CHECK FOR -DIS 
03BC 1319 JEQ OPG40 
O3BE 06A0 0186 BL @GETLA 
03c2 C002 MOV R2,R0 ; MUST BE ADDRESS 
03c4 05C0 INCT RO 3 DIS*2=ADDRESS-(PC+2) 
03c6 6040 s RO,R1 
03c8 0811 SRA Rl,1l ; DISP=BYTE STUFF/2 
03CA 0281 007F OPG10 CI R1,>7F ; CHECK RANGE 
03CE 1509 JGT OPG20 
03D0 0281 FF80 CI R1,>FF80 
03D4 1106 JLT OPG20 
03D6 0241 OOFF OPG15 ANDI R1,>FF ; RANGE 0.K. SO 
O3DA E481 SOC R1,*R2 3; INSERT IT 
03DC 0201 0002 tt i, ; RESET R3 
03E0 10c4 JMP OPA20 s ERTe 
03E2 0204 442A OPG20 LI R4,’D*’ ; RANGE ERROR 
03E6 0460 02A6 B @PT210 ; GO ISSUE ERROR 
O3EA 06A0 0180 OPG30 BL @GETL ; +DIS 
03EE 10ED JMP OPG10 ‘ 
O3FO 06A0 0180 OPG40 BL  @GETL 
03F4 0501 NEG Rl ; -DIS 
03F6 10E9 JMP OPG10 
* 
* HANDLE BIT 
* 
03F8 C38B OPH MOV R11,R14 3; SAVE RETURN 
O3FA O06A0 0180 BL @GETL 
O3FE 10EB IMP OPG15 ; GO PROCESS IT 
0400 END LIIABGN 
0126 BIN 012A BIN1O O1DE BUFF10 O1F8 BUFF20 O1DA BUFFS 
O1D2 BUFFIN 0096 CODE 02B7 CRET 012E DEC 0130 DECL 
0136 DEC1O O14E DEC20 0152 DEC30 0158 DEC40 0134 DECS 
0100 DFPC *0004 DISK 0224 DMEMN 0032 FEED 0009 FM1 
0005 FM2 000A FM3 OOOA FM4 0014 FM5 0008 FM6 
1000 FM7 0013 FM8 000A FM9 0006 FMA 0003 FMB 
—0010 FMC 0180 GETL 0188 GETL10 019C GETL20 O019E GETL30 
OlAC GETL40 0186 GETLA 0164 GETR *016C GETR1O 0174 GETR20 
O1BE GETR30 016A GETRA O1I1E HEX *0000 IDTIIA *0000 IDTMM 
020A IIABGN 01C4 INP 0088 OP 031A OPA 0362 OPA1O 
0368 OPA15 036A OPA20 036C OPB 0380 OPB10 0384 OPC 


4.-3-15 
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038A OPD 0396 
03D6 OPGI5 O3E2 

010 OPS 0000 
“0040 P3 00c 0 
OOBO PC 0216 


023C PT150 024C 
029E PT200 02A6 
O2D0 PT250 02D6 
0310 PT300 OOB2 


OOOB R11 000Cc 
0002 R2 0003 
0007 R7 0008 


O1B4 TAB1O *0008 


EDIT/ASM/LOAD? 


OPE 
OPG20 
Pi 
P3E 
PTL1LO 
PT160 
PT210 
PT260 
PTR 
R12 
R3 

R8 
TTIN 


03A6 OPF 
O3EA OPG30 
0080 PIE 
0060 P4 
021A PT120 
0270 PLLZO 
O02B0 PT220 
OZDG PTZ 70 
0000 RO 
*000D R13 
0004 R4 
*0009 RY 
*000C TTOUT 


4. 3=16 


(TM) VER 3 =- 


O3AE 
O3F0 
0020 
OOEO 
0220 
027E 
O2B2 
O02E2 
0001 
O00 
0005 
0349 
O2AC 


10/78 


OPG 
OPG40 
P2 
P4E 
PT130 
PT180 
PY 225 
PT280 
R1 
R14 
R5 
SPACE 
TYPE 


O3CA 
O3F8 
OOA0 
O2A2 
022A 
0288 
022 
0300 
OO0A 
000F 
0006 
0180 
0232 


OPG10 
OPH 
P2E 
PAT9O 
PT140 
PT190 
PT 230 
PE2Z90 
R10 
R15 
R6 
TAB 
TYPEWD 


